home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Bonus.dir / 00020.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  933 b   |  36 lines
  1. on startMovie
  2.   puppetSound(0)
  3. end
  4.  
  5. on prepareMovie
  6.   global chica, idioma
  7.   puppetSound(0)
  8.   set the text of field "password" to EMPTY
  9.   if (chica = "D") or (chica = "E") or (chica = "F") then
  10.     set the fileName of member "video" to the pathName & "videos\bonus\bonus" & chica & ".avi"
  11.   end if
  12.   repeat with x = 20 to 26
  13.     set the visible of sprite x to 0
  14.   end repeat
  15.   set the visible of sprite 9 to 0
  16.   set the visible of sprite 10 to 0
  17.   set the visible of sprite 11 to 0
  18.   set the visible of sprite 12 to 0
  19.   updateStage()
  20.   if idioma = "french" then
  21.     set the fileName of castLib "idiomas" to the pathName & "french.cst"
  22.   else
  23.     if idioma = "deutch" then
  24.       set the fileName of castLib "idiomas" to the pathName & "deutch.cst"
  25.     else
  26.       set the fileName of castLib "idiomas" to the pathName & "english.cst"
  27.     end if
  28.   end if
  29. end
  30.  
  31. on idle
  32.   if not soundBusy(1) then
  33.     puppetSound("password")
  34.   end if
  35. end
  36.